home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Fun / Winemakers Notebook / Wine Label Art / background_9861.txt < prev    next >
Encoding:
Text File  |  1992-06-03  |  3.4 KB  |  164 lines
  1. -- background: 9861 from stack: in
  2. -- bmap block id: 2639
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Labels
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   set the userLevel to 4
  9. end openBackground
  10.  
  11. on newCard
  12.   global TBatch, TDate, TLot
  13.   choose line tool
  14.   set lineSize to 1
  15.   drag from 18,38 to 18,56
  16.   drag from 18,38 to 36,38
  17.   drag from 204,38 to 222,38
  18.   drag from 222,38 to 222,56
  19.   drag from 18,272 to 18,290
  20.   drag from 18,290 to 36,290
  21.   drag from 204,290 to 222,290
  22.   drag from 222,272 to 222,290
  23.  
  24.   choose field tool
  25.   drag from 18,100 to 222,118 with commandKey
  26.   set name of card field 1 to "Varietal"
  27.   put TBatch into card field Varietal
  28.  
  29.   drag from 18,150 to 148,168 with commandKey
  30.   set name of card field 2 to "Vintage"
  31.   put TDate into card field Vintage
  32.  
  33.   drag from 18,200 to 74,218 with commandKey
  34.   set name of card field 3 to "LotControl"
  35.   put TLot into card field LotControl
  36.  
  37.   choose browse tool
  38. end newCard
  39.  
  40.  
  41. on openCard
  42.   global TBatch, TDate, TLot
  43.  
  44.   -- in HC 1.x the openCard will occur before a newCard (above) and
  45.   -- will cause trouble.  The following test prevents that
  46.  
  47.   if the number of card fields > 0
  48.   then
  49.   put TBatch into card field Varietal
  50.   put TDate into card field Vintage
  51.   put TLot into card field LotControl
  52. end if
  53. end openCard
  54.  
  55.  
  56.  
  57.  
  58. -- part 1 (button)
  59. -- low flags: 00
  60. -- high flags: 8000
  61. -- rect: left=462 top=215 right=260 bottom=504
  62. -- title width / last selected line: 0
  63. -- icon id / first selected line: 29114 / 29114
  64. -- text alignment: 1
  65. -- font id: 0
  66. -- text size: 12
  67. -- style flags: 0
  68. -- line height: 16
  69. -- part name: Return
  70. ----- HyperTalk script -----
  71. on mouseUp
  72.   pop card
  73. end mouseUp
  74.  
  75.  
  76.  
  77. -- part 2 (button)
  78. -- low flags: 00
  79. -- high flags: 0000
  80. -- rect: left=451 top=319 right=342 bottom=482
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 15420 / 15420
  83. -- text alignment: 1
  84. -- font id: 0
  85. -- text size: 12
  86. -- style flags: 0
  87. -- line height: 16
  88. -- part name: Prev/1st
  89. ----- HyperTalk script -----
  90. on mouseUp
  91.   if the shiftKey is down
  92.   then
  93.   send "doMenu First" to background
  94. else
  95.   send "doMenu Prev" to background
  96. end if
  97. end mouseUp
  98.  
  99.  
  100.  
  101. -- part 3 (button)
  102. -- low flags: 00
  103. -- high flags: 0000
  104. -- rect: left=481 top=319 right=342 bottom=512
  105. -- title width / last selected line: 0
  106. -- icon id / first selected line: 16560 / 16560
  107. -- text alignment: 1
  108. -- font id: 0
  109. -- text size: 12
  110. -- style flags: 0
  111. -- line height: 16
  112. -- part name: Next/Last
  113. ----- HyperTalk script -----
  114. on mouseUp
  115.   if the shiftKey is down
  116.   then
  117.   send "doMenu Last" to background
  118. else
  119.   send "doMenu Next" to background
  120. end if
  121. end mouseUp
  122.  
  123.  
  124.  
  125. -- part 5 (button)
  126. -- low flags: 00
  127. -- high flags: 0000
  128. -- rect: left=451 top=259 right=320 bottom=513
  129. -- title width / last selected line: 0
  130. -- icon id / first selected line: 0 / 0
  131. -- text alignment: 1
  132. -- font id: 0
  133. -- text size: 12
  134. -- style flags: 0
  135. -- line height: 16
  136. -- part name: Coming Soon
  137. ----- HyperTalk script -----
  138. on mouseUp
  139.   push card
  140.   go to first card of bkgnd Calculator of stack Record Book
  141. end mouseUp
  142.  
  143.  
  144.  
  145. -- part 6 (button)
  146. -- low flags: 00
  147. -- high flags: 8000
  148. -- rect: left=462 top=164 right=211 bottom=504
  149. -- title width / last selected line: 0
  150. -- icon id / first selected line: 32462 / 32462
  151. -- text alignment: 1
  152. -- font id: 0
  153. -- text size: 12
  154. -- style flags: 0
  155. -- line height: 16
  156. -- part name: Help
  157. ----- HyperTalk script -----
  158. on mouseUp
  159.   push card
  160.   go to card LabelHelp of bkgnd HelpSet of stack "Record Book"
  161. end mouseUp
  162.  
  163.  
  164.